# Copyright (c) 2018 Presto Labs Pte. Ltd.
# Author: leon

#!/usr/bin/env Rscript

args <- commandArgs(trailingOnly = TRUE)
filename <- args[1]

setwd("/home/leon/data/strategy_log/strategy-05.aliyun-cn-hongkong/csv2")
last_feed <- read.csv(file = filename)

nrow(last_feed)
summary(last_feed$last_feed_ms)

png("hist_last_feed.png")
hist(last_feed$last_feed_ms, xaxt='n', breaks=100)
axis(side=1, at=seq(0,500,10)*10, label=paste(seq(0,500,10)*10, "ms"))
dev.off()
